Win 50 Game+ Vol. 7 (Japan)/Win 50 Game+ Vol. 7 (Japan).7z/Win 50 Game+ Vol. 7 (Japan).bin/lha_file/dpgolf11.lzh/DPG11SRC.LZH/GLMAIN.DFM/GLMAIN.txt

Text File | 1996-08-21 | 6KB | 297 lines

object Form1: TForm1
  Left = 12
  Top = 10
  ActiveControl = Button1
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Danchan'#39's Putter Golf 1.1'
  ClientHeight = 416
  ClientWidth = 556
  Ctl3D = False
  Color = clLime
  Font.Color = clBlack
  Font.Height = -19
  Font.Name = 'Times New Roman'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu1
  PixelsPerInch = 96
  Position = poDefaultPosOnly
  Scaled = False
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnMouseDown = FormMouseDown
  OnMouseMove = Shape2MouseMove
  OnMouseUp = Shape1MouseUp
  OnPaint = FormPaint
  TextHeight = 21
  object Image2: TImage
    Left = 16
    Top = 120
    Width = 260
    Height = 26
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object Image3: TImage
    Left = 16
    Top = 152
    Width = 260
    Height = 26
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object hata: TImage
    Left = 203
    Top = 180
    Width = 32
    Height = 32
    Picture.Data = {<image003.ico>}
  end
  object Panel1: TPanel
    Left = 420
    Top = 0
    Width = 136
    Height = 416
    Align = alRight
    BevelInner = bvLowered
    TabOrder = 0
    OnMouseMove = Shape2MouseMove
    object Shape1: TShape
      Left = 8
      Top = 24
      Width = 120
      Height = 120
      Cursor = crCross
      Shape = stCircle
      OnMouseDown = Shape1MouseDown
      OnMouseMove = Shape1MouseMove
      OnMouseUp = Shape1MouseUp
    end
    object Shape2: TShape
      Left = 59
      Top = 75
      Width = 18
      Height = 18
      Brush.Color = clBtnFace
      Shape = stEllipse
      OnMouseMove = Shape2MouseMove
    end
    object Label1: TLabel
      Left = 8
      Top = 172
      Width = 125
      Height = 20
      AutoSize = False
      Caption = 'Hole 1 (par 2)'
    end
    object Label2: TLabel
      Left = 8
      Top = 190
      Width = 74
      Height = 20
      AutoSize = False
      Caption = 'Shot 1 '
    end
    object Label3: TLabel
      Left = 8
      Top = 208
      Width = 122
      Height = 20
      AutoSize = False
      Caption = 'Score 0 (+0)'
    end
    object Label4: TLabel
      Left = 4
      Top = 4
      Width = 128
      Height = 19
      Alignment = taCenter
      Caption = 'Click This Circle'
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 232
      Width = 117
      Height = 17
      AutoSize = False
      Caption = 'Friction : 14'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 8
      Top = 270
      Width = 121
      Height = 17
      AutoSize = False
      Caption = 'Acceleration : 14'
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object showxy: TLabel
      Left = 12
      Top = 146
      Width = 109
      Height = 19
      Alignment = taCenter
      AutoSize = False
      Caption = 'Power : 0'
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = [fsBold, fsItalic]
      ParentFont = False
    end
    object Bar1: TScrollBar
      Left = 8
      Top = 249
      Width = 121
      Height = 16
      LargeChange = 4
      Max = 30
      Min = 1
      Position = 14
      TabOrder = 0
      OnChange = Bar1Change
    end
    object Bar2: TScrollBar
      Left = 8
      Top = 287
      Width = 121
      Height = 16
      LargeChange = 4
      Max = 30
      Min = 1
      Position = 14
      TabOrder = 1
      OnChange = Bar2Change
    end
    object Button1: TButton
      Left = 60
      Top = 310
      Width = 65
      Height = 24
      Caption = 'Reset'
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = ResetbtnClick
    end
    object Radio1: TRadioGroup
      Left = 4
      Top = 338
      Width = 128
      Height = 72
      Columns = 2
      Enabled = False
      Font.Color = clBlack
      Font.Height = -15
      Font.Name = 'Arial'
      Font.Style = []
      ItemIndex = 0
      Items.Strings = (
        'DX'
        'Rough'
        'DY'
        'Item')
      ParentFont = False
      TabOrder = 4
    end
    object Check1: TCheckBox
      Left = 12
      Top = 338
      Width = 49
      Height = 17
      Caption = 'Edit'
      TabOrder = 3
      OnClick = Check1Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 72
    Top = 40
    object Game1: TMenuItem
      Caption = '&Game'
      object Restart1: TMenuItem
        Caption = '&Restart'
        OnClick = Restart1Click
      end
      object New1: TMenuItem
        Caption = '&New'
        OnClick = New1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Save1: TMenuItem
        Caption = '&Save'
        OnClick = Save1Click
      end
      object Load1: TMenuItem
        Caption = '&Load'
        OnClick = Load1Click
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object Index1: TMenuItem
        Caption = '&Index'
        OnClick = Help1Click
      end
      object About1: TMenuItem
        Caption = '&About'
        OnClick = About1Click
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 50
    OnTimer = Timer1Timer
    Left = 40
    Top = 40
  end
  object Loadbox: TOpenDialog
    Ctl3D = False
    DefaultExt = 'dpg'
    Filter = 'Course Data(*.dpg)|*.dpg|All files(*.*)|*.*'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Danchan'#39's Putter Golf(Load)'
    Left = 104
    Top = 40
  end
  object Savebox: TSaveDialog
    Ctl3D = False
    DefaultExt = 'dpg'
    FileName = 'dpgolf.dpg'
    Filter = 'Course Data(*.dpg)|*.dpg'
    Options = [ofOverwritePrompt, ofHideReadOnly]
    Title = 'Danchan'#39's Putter Golf(Save)'
    Left = 136
    Top = 40
  end
end